Perl Multimedia Cyber Classroom/PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO/perlbyex/code.jar/12ex006.jar/code/ch12/12ex006/12ex006.pl

Perl Script | 1998-04-01 | 161b | 6 lines

#!/usr/bin/perl
$hashref = { Name=>"Woody", Type=>"Cowboy"};
print $hashref->{Name}, "\n\n"; # or $$hashref{Name}
print keys (%$hashref);
print "\n";